home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / getscr1r / modcallb.bas < prev    next >
BASIC Source File  |  1999-09-06  |  1KB  |  30 lines
  1. Attribute VB_Name = "modCallBack"
  2. Option Explicit
  3.  
  4. ' Name:     Windows Information Viewer
  5. ' Author:   Chong Long Choo
  6. ' Date:     06 September 1999
  7.  
  8. Private Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
  9.  
  10. Public objListTop As clsWinView
  11.  
  12. Public Function CallBack_EnumWindows(ByVal hwnd As Long, ByVal lpData As Long) As Long
  13.     frmWinView.lstTopLevelWin.AddItem objListTop.GetWindowDesc(hwnd)
  14.     CallBack_EnumWindows = 1 ' Continue enumeration
  15. End Function
  16.  
  17. Public Function CallBack_EnumOwnedWindows(ByVal hwnd As Long, ByVal lpData As Long) As Long
  18.     If GetParent(hwnd) = lpData Then
  19.         frmWinView.lstOwnedWin.AddItem objListTop.GetWindowDesc(hwnd)
  20.     End If
  21.     CallBack_EnumOwnedWindows = 1 ' Continue enumeration
  22. End Function
  23.  
  24. Public Function CallBack_EnumChildWindows(ByVal hwnd As Long, ByVal lpData As Long) As Long
  25.     If GetParent(hwnd) = lpData Then
  26.         frmWinView.lstChildWin.AddItem objListTop.GetWindowDesc(hwnd)
  27.     End If
  28.     CallBack_EnumChildWindows = 1 ' Continue enumeration
  29. End Function
  30.